home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue35 / pageprnt / PAGEPRNT.ZIP / PagePrnt / TestIt / UNIT1.DFM / UNIT1.txt
Text File  |  1997-10-26  |  7KB  |  217 lines
  1. object MainForm: TMainForm
  2.   Left = 193
  3.   Top = 109
  4.   Width = 347
  5.   Height = 348
  6.   Caption = 'TPagePrinter Test Application'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnShow = FormShow
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Prn: TPagePrinter
  15.     Left = 0
  16.     Top = 0
  17.     Width = 339
  18.     Height = 291
  19.     HorzScrollBar.Increment = 16
  20.     HorzScrollBar.Range = 216
  21.     HorzScrollBar.Tracking = True
  22.     VertScrollBar.Increment = 16
  23.     VertScrollBar.Range = 276
  24.     VertScrollBar.Tracking = True
  25.     Align = alClient
  26.     AutoScroll = False
  27.     Font.Color = clWindowText
  28.     Font.Height = -13
  29.     Font.Name = 'Courier New'
  30.     Font.Style = []
  31.     TabOrder = 0
  32.     DefaultColWidth = 0.999999999999999900
  33.     FileName = 'C:\TestFile.txt'
  34.     FriendlyFooter = '&l&d&r&t'
  35.     FriendlyHeader = '&l&i&rPage &p'
  36.     Lines.Strings = (
  37.       'type'
  38.       '  TMainForm = class(TForm)'
  39.       '    Prn: TPagePrinter;'
  40.       '    Panel1: TPanel;'
  41.       '    btnPreview: TButton;'
  42.       '    Label1: TLabel;'
  43.       '    btnNextPage: TSpeedButton;'
  44.       '    btnPrevPage: TSpeedButton;'
  45.       '    Label4: TLabel;'
  46.       '    ZoomList: TComboBox;'
  47.       '    ZoomTimer: TTimer;'
  48.       '    btnPrint: TButton;'
  49.       '    procedure btnPreviewClick(Sender: TObject);'
  50.       '    procedure FormShow(Sender: TObject);'
  51.       '    procedure btnNextPageClick(Sender: TObject);'
  52.       '    procedure btnPrevPageClick(Sender: TObject);'
  53.       '    procedure ZoomListKeyPress(Sender: TObject; var Key: Char);'
  54.       '    procedure ZoomListClick(Sender: TObject);'
  55.       '    procedure ZoomTimerTimer(Sender: TObject);'
  56.       '    procedure btnPrintClick(Sender: TObject);'
  57.       '  private'
  58.       '    { Private declarations }'
  59.       '  public'
  60.       '    { Public declarations }'
  61.       '  end;'
  62.       ''
  63.       ''
  64.       'NETDI: NdiCreate(TCP/IP) OK'
  65.       ''
  66.       'NETDI: NETDI: lpRegLogConf = 0x0'
  67.       ''
  68.       
  69.         'NETDI: ClassInstall (0x9 on 0x19fe:0xfa0) on  at Enum\Root\Net\0' +
  70.         '000'
  71.       ''
  72.       'NETDI: Validating TCP/IP at Enum\Network\MSTCP\0000, rc = 0x0'
  73.       ''
  74.       
  75.         'NETDI: Validating Client for NetWare Networks at Enum\Network\NW' +
  76.         'REDIR\0000, rc = 0x0'
  77.       ''
  78.       
  79.         'NETDI: Validating Client for Microsoft Networks at Enum\Network\' +
  80.         'VREDIR\0000, rc = 0x0'
  81.       ''
  82.       'NETDI: Validating NetBEUI at Enum\Network\NETBEUI\0000, rc = 0x0'
  83.       ''
  84.       
  85.         'NETDI: Validating IPX/SPX-compatible Protocol at Enum\Network\NW' +
  86.         'LINK\0000, rc = 0x0'
  87.       ''
  88.       
  89.         'NETDI: Validating Dial-Up Adapter at Enum\Root\Net\0000, rc = 0x' +
  90.         '0 NETDI: ClassInstall(0x9) end NETDI: ClassInstall (0xa on 0x19f' +
  91.         'e:0xfa0) on  at Enum\Root\Net\0000 NETDI: ChangeLine: No matches' +
  92.         ' found. NETDI: ClassInstall(0xa) end'
  93.       ''
  94.       
  95.         'NETDI: ClassInstall (0xc on 0x19fe:0xfa0) on  at Enum\Root\Net\0' +
  96.         '000'
  97.       ''
  98.       'NETDI: ClassInstall(0xc) end')
  99.     MarginBottom = 1.000000000000000000
  100.     MarginLeft = 0.999999999999999900
  101.     MarginRight = 0.999999999999999900
  102.     MarginTop = 1.000000000000000000
  103.     PageBorderOffset = 0.062500000000000000
  104.     PageBorders = [pbTop, pbBottom]
  105.     TableFormat = '<1|^-1|>1'
  106.     TableGrid = True
  107.     Title = 'PagePrinter Testing'
  108.   end
  109.   object Panel1: TPanel
  110.     Left = 0
  111.     Top = 291
  112.     Width = 339
  113.     Height = 30
  114.     Align = alBottom
  115.     BevelOuter = bvNone
  116.     TabOrder = 1
  117.     object btnPrevPage: TSpeedButton
  118.       Left = 153
  119.       Top = 4
  120.       Width = 25
  121.       Height = 25
  122.       Glyph.Data = {
  123.         4E010000424D4E01000000000000760000002800000012000000120000000100
  124.         040000000000D800000000000000000000001000000000000000000000000000
  125.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  126.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBBBBBBBB
  127.         BBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBB
  128.         BBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB00
  129.         00007FFFFFFFFFFFFFFFFF00000078888888888888888F000000788888888888
  130.         88888F00000078888888888888888F00000078888888888888888F0000007777
  131.         7777777777777F000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB00
  132.         0000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBB
  133.         BBBBBB000000BBBBBBBBBBBBBBBBBB000000}
  134.       OnClick = btnPrevPageClick
  135.     end
  136.     object lblPage: TLabel
  137.       Left = 209
  138.       Top = 9
  139.       Width = 25
  140.       Height = 13
  141.       Caption = 'Page'
  142.     end
  143.     object btnNextPage: TSpeedButton
  144.       Left = 177
  145.       Top = 4
  146.       Width = 25
  147.       Height = 25
  148.       Glyph.Data = {
  149.         4E010000424D4E01000000000000760000002800000012000000120000000100
  150.         040000000000D800000000000000000000001000000000000000000000000000
  151.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  152.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBBFFFFFF
  153.         BBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBB
  154.         BB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB00
  155.         00007FFFFFF8888FFFFFFF00000078888888888888888F000000788888888888
  156.         88888F00000078888888888888888F00000078888888888888888F0000007777
  157.         7778888F77777F000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB00
  158.         0000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888F
  159.         BBBBBB000000BBBBBB777777BBBBBB000000}
  160.       OnClick = btnNextPageClick
  161.     end
  162.     object Label4: TLabel
  163.       Left = 117
  164.       Top = 9
  165.       Width = 28
  166.       Height = 13
  167.       Caption = 'Page:'
  168.     end
  169.     object btnPreview: TButton
  170.       Left = 8
  171.       Top = 4
  172.       Width = 49
  173.       Height = 25
  174.       Caption = 'Preview'
  175.       TabOrder = 0
  176.       OnClick = btnPreviewClick
  177.     end
  178.     object ZoomList: TComboBox
  179.       Left = 253
  180.       Top = 6
  181.       Width = 77
  182.       Height = 21
  183.       ItemHeight = 13
  184.       Items.Strings = (
  185.         '200%'
  186.         '175%'
  187.         '150%'
  188.         '125%'
  189.         '100%'
  190.         '50%'
  191.         'Fit To Width'
  192.         'Fit To Height'
  193.         'Whole Page')
  194.       TabOrder = 1
  195.       Text = '25%'
  196.       OnClick = ZoomListClick
  197.       OnKeyPress = ZoomListKeyPress
  198.     end
  199.     object btnPrint: TButton
  200.       Left = 60
  201.       Top = 4
  202.       Width = 49
  203.       Height = 25
  204.       Caption = 'Print'
  205.       TabOrder = 2
  206.       OnClick = btnPrintClick
  207.     end
  208.   end
  209.   object ZoomTimer: TTimer
  210.     Enabled = False
  211.     Interval = 50
  212.     OnTimer = ZoomTimerTimer
  213.     Left = 276
  214.     Top = 260
  215.   end
  216. end
  217.